home *** CD-ROM | disk | FTP | other *** search
/ Alles Voor Internet / Tout Pour Internet / alles voor internet.iso / MacInternet™ / Telnet / 5PM PowerMac / 5PM_Term_PPC.sea / Palettes Folder / Capture / Capture Recorder.rsrc / BTXT_2 next >
Text File  |  1994-03-15  |  580b  |  26 lines
  1. On mouseDown
  2.     Put GetSessionsList () into me
  3.     Pass mouseDown
  4. End mouseDown
  5.  
  6.  
  7. On mouseUp choice
  8.     If choice > 0 then
  9.         Set the targetSession of palt (last word of the name of me) to the id of palt line choice of me
  10.         Put the targetSession of palt (last word of the name of me) into btn "sess"
  11.         Set the enable of btn 4 to true
  12.         Pass mouseUp
  13.     End If
  14. End mouseUp
  15.  
  16. Function GetSessionsList
  17.     Put the number of sessions into count
  18.     Get empty
  19.     Repeat with i = 1 to count
  20.         Get it & cr & the short name of session #i
  21.     End repeat
  22.     Delete first line of it
  23.     
  24.     Return it
  25. End GetSessionsList